home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / cgi2 / fly_tar.z / fly_tar / fly / examples / perl.example < prev    next >
Encoding:
Text File  |  1997-01-21  |  682 b   |  27 lines
  1. #!/usr/local/bin/perl
  2.  
  3. $flyprog = "../fly";
  4. $outfile = "temp.gif";
  5.  
  6. $infile = "/tmp/fly.$$";
  7.  
  8. open(FLY,"> $infile");
  9. print FLY "new\n";
  10. print FLY "size 256,256\n";
  11. print FLY "fill 1,1,255,255,255\n";
  12. print FLY "circle 128,128,180,0,0,0\n";
  13. print FLY "fill 128,128,255,255,0\n";
  14. print FLY "arc 128,128,120,120,0,180,0,0,0\n";
  15. print FLY "circle 96,96,10,0,0,0\n";
  16. print FLY "circle 160,96,10,0,0,0\n";
  17. print FLY "fill 96,96,0,0,0\n";
  18. print FLY "fill 160,96,0,0,0\n";
  19. print FLY "string 0,0,0,10,240,giant,Hello, World!\n";
  20. print FLY "string 0,0,0,100,10,medium,Don't worry, be Happy!\n";
  21.  
  22. close(FLY);
  23.  
  24. open(FOO,"$flyprog -i $infile -o $outfile |");
  25. while( <FOO> ) {print;}
  26. close(FOO);
  27.